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DIMENSION AdOOO) 
COMMON /BLK/B(1000) 



.bssnewl main.local,4000 
.commonnewl blk,4000 
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bss_start .bssnewl main.iocal,4000 
bss_end .commonnewl blk,4000 
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abss.start 8B8B8B8B8B8B8B8B 
abss.end 8B8B8B8B8B8B8B8B 
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PROGRAM MAIN 

COMMON /ALK/X 1 (1000), X2(1000) 

COMMON /BLK/X3(1000) 

END 
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. common new 1 a Ik, 8000 
. commonnew2 blk,4000 
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PROGRAM MAIN 
COMMON /BLK/X3(1000) 
CALL SUB 
END 

SUBROUTINE SUB 
COMMON /BLK/X3(1000) 

END 
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SUB 

.commonnewl b Ik, 4000 
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PROGRAM MAIN 
COMMON /BLK/X3 (1000) 
CALL SUB 
END 
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SUBROUTINE SUB 
COMMON /BLK/X3(1000) 
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END 
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PROGRAM MAIN 
COMMON /BLK/X(1000) 

■ 

WRITE (6,' (8Z)') X(l) 
END 
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PROGRAM MAIN 
COMMON /BLK/X(1000) 

■ 
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Y=X(1)+1 
END 
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PROGRAM MAIN 

REAL A (1 000), B (1000) 

DO 1=1,1000 

A(l) = 1.0 
ENDDO 

DO 1=1,1001 

B(I)=A(I) 
ENDDO 
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